home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD014a.dsk / PAL.06109.MONTANARO.DEC.82.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  44 lines
  1. 100  HOME 
  2. 105  ONERR  GOTO 900
  3. 110  VTAB 2
  4. 120  SPEED= 100
  5. 300  FOR X = 1 TO 20
  6. 310  READ D$
  7. 315  GOSUB 700: REM  PRINT MODE
  8. 320  PRINT : PRINT D$
  9. 400  IF X = 10  THEN  GOSUB 800: GOTO 300
  10. 490  NEXT X
  11. 700  IF D$ = "HIGH"  THEN  INVERSE : GOTO 730
  12. 710  IF D$ = "LOW"  THEN  NORMAL : GOTO 730
  13. 720  IF D$ = "BLINK"  THEN  FLASH : GOTO 730
  14. 725  GOTO 750
  15. 730  READ D$
  16. 750  RETURN 
  17. 800  FOR Y = 1 TO 2000: NEXT Y
  18. 810  HOME 
  19. 890  RETURN 
  20. 900  GOSUB 800
  21. 910  VTAB 12
  22. 920  PRINT "   HAPPY TRAILS   "
  23. 930  SPEED= 255
  24. 999  PRINT  CHR$(4)"RUN PAL.MENU"
  25. 1000  DATA  CAN IT BE THAT THE EXPLOSION IS JUST
  26. 1010  DATA  BEGINING? COMPUTERS ARE GETTING VERY
  27. 1020  DATA  CHEAP. I.B.M. SAYS THEY CAN UPGRADE
  28. 1030  DATA  THIER P.C. TO 16 MEGS VIRTUAL AND 
  29. 1040  DATA  THE PERFORMANCE OF A 370/135 IN JUST   
  30. 1050  DATA   18 MOS.  THE MARKET FOR PERSONALS HAS
  31. 1060  DATA  ATTRACTED SOME VERY BIGGIES INCLUDING
  32. 1070  DATA    AT&T. SOON EVERY PHONE WILL BE A 
  33. 1080  DATA   COMPUTER AND NETWORKING WILL BE AUTO-
  34. 1090  DATA  MATIC. 
  35. 2000  DATA  APPLE HAS FLEXIBILITY IN ITS DESIGN
  36. 2010  DATA  APPLE USERS CAN FLIP BETWEEN LANGUAGES
  37. 2020  DATA  OPERATING SYSTEMS AND EVEN CPU CHIPS AT
  38. 2030  DATA  THE PUSH OF A BUTTON. THIS TREND
  39. 2040  DATA  MAY BE THE BEGINNING OF SOMETHING THAT
  40. 2050  DATA   SETS APPLE USERS EVEN FURTHER APART 
  41. 2060  DATA   FROM THE AVERAGE USER. COMPANIES LIKE
  42. 2070  DATA  'SORT CTRL SYSTEMS' ARE OFFERING FIRM-
  43. 2080  DATA   WARE PRODUCTS (MUCH USED PROGRAMS IN
  44. 2090  DATA  'ROM' THAT SLIP INTO AN OPEN SLOT.